home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / SPOOL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.3 KB  |  25 lines
  1. 10 POKE55,.:POKE56,160:CLR:SYS2786:I$="00":Q$=CHR$(34)
  2. 20 PRINT"[147][142]PRESS W TO WRITE FILE TO DISK."
  3. 35 PRINT"PRESS X TO EXIT."
  4. 40 GETA$:IFA$="W"THENPRINT"[147]":GOTO80
  5. 50 IFA$="X"THENEND
  6. 60 GOTO40
  7. 70 PRINT"[147]DEVICE";D;"[157] NOT PRESENT":CLOSE15
  8. 80 PRINT"ENTER DEVICE # OF DRIVE (4 TO 30)."
  9. 90 PRINT"(ENTER 0 TO EXIT.)"
  10. 100 PRINT"  8[145]":INPUTD:IFD=.THENEND
  11. 110 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO80
  12. 120 OPEN15,D,15:POKE183,1:POKE184,8:POKE185,8:POKE186,D:POKE187,87:POKE188,8
  13. 130 SYS65472:IFSTTHENCLOSE15:CLOSE8:GOTO70
  14. 140 PRINT#15,"U1";8;.;29;.:PRINT#15,"U2";8;.;29;.:CLOSE8
  15. 150 GOSUB500:IFJ$=I$THEN170
  16. 160 CLOSE15:GOTO80
  17. 170 PRINT"[147]ENTER A FILENAME."
  18. 180 F$="":INPUTF$:IFF$=""THEN600
  19. 190 OPEN8,D,1,F$:GOSUB500:IFJ$<>I$THENCLOSE15:CLOSE8:GOTO80
  20. 200 PRINT"WRITING ";Q$;F$;Q$;"..."
  21. 210 CMD8,"";:FORI=4999TO5246:PRINTCHR$(PEEK(I));:NEXT:PRINT#8,"";:GOTO600
  22. 500 INPUT#15,J$,O$,H$,N$:IFJ$=I$THENRETURN
  23. 510 PRINT"[147]";J$;",";O$;",";H$;",";N$:RETURN
  24. 600 CLOSE15:CLOSE8
  25.